program mserver;

uses
  system.Classes,
  system.Generics.Collections,
  Vcl.Forms,
  serverMain in 'serverMain.pas' {ServerForm},
  common in 'common.pas',
  log in 'log.pas' {logForm};

{$R *.res}

begin
  ClientList := TDictionary<string, TClient>.create;
  FileInfoList := TDictionary<integer, TFileInfo>.create;
  FileTempList := TList<string>.Create;
  FolderTempList := TList<string>.Create;
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TServerForm, ServerForm);
  Application.CreateForm(TlogForm, logForm);
  Application.Run;
end.
